home *** CD-ROM | disk | FTP | other *** search
/ Quake Busters / QUAKE.bin / pc / shared.dir / 00851_Script_(Bt) Down Quit < prev    next >
Text File  |  1996-06-10  |  751b  |  32 lines
  1. -- will go to ending scene and quit
  2.  
  3.  
  4. on mouseDown
  5.   puppetSound "Mouse Down"
  6.   updateStage
  7.   set the castnum of sprite the clickOn to ¼
  8. the number of cast "qr"
  9.   updatestage
  10.   repeat while the stilldown
  11.     if not rollover(the clickOn) then ¼
  12. set the castnum of sprite the clickOn to ¼
  13. the number of cast "qy"
  14.     updateStage
  15.     if rollover(the clickOn) then nothing
  16.   end repeat
  17.   puppetSound 0
  18. end mouseDown
  19.  
  20. on mouseUp
  21.   set the castnum of sprite the clickOn to ¼
  22. the number of cast "qy"
  23.   if rollover(45) then puppetSound "Mouse Up"
  24.   updatestage
  25.   repeat while soundBusy(1)
  26.     nothing
  27.   end repeat
  28.   puppetSound 0
  29.   updatestage
  30.   if rollover(45) then ¼
  31. go to frame "ending" of movie ":SHORTS:END.DIR"
  32. end mouseUp